program pr;
Type 
  dias_semana    =(lunes,martes,miercoles,jueves,
                  viernes,sabado,domingo);
  colores_baraja =[espada,oro,basto,copa];

Var
   dia     : dias_semana;
   carta : colores_baraja;
   x: entero;

begin
if (dia < [martes) then
x:=5;
else
x:=6;

end.

